home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / ¬ (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  1KB  |  47 lines
  1. 1 REM DF
  2. 2 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
  3. 3 A=USR(1):PRINTCHR$(14);"[147]":OPEN15,D0,15:CLOSE15
  4. 4 PRINT"[196]ISK FUNCTIONS:
  5. 5 [153]"  C WAIT LENHANGE DRIVE ASSIGNMENTS
  6. 6 PRINT"  S [146] [195]HANGE [211]PEED 0 VALUE
  7. 7 [153]"  D WAIT ASCILE DISK DIRECTORY
  8. 8 PRINT"  > [146] [211]END COMMAND TO FILE DRIVE
  9. 9 [153]"  X WAIT VALXIT TO LENATNSTR$
  10. 10 PRINT:PRINT"(C,S,D,>,X):[146]
  11. 11 [161]C$:[139]C$[178]""[167]11
  12. 12 [139]C$[178]"C"[167]32
  13. 13 [139]C$[178]"S"[167]43
  14. 14 [139]C$[178]"."[176]C$[178]">"[167]18
  15. 15 [139]C$[178]"D"[167][153]:[158]36906:[137]4
  16. 16 [139]C$[178]"X"[167]25
  17. 17 [137]4
  18. 18 C$[178]"":[153]:[153]D1;">";:[159]15,D1,15,"I0":[132]15,E,E$:[160]15
  19. 19 [139]E[179][177]0[167][153]E,E$:[137]4
  20. 20 [161]B$:[139]B$[178]""[167]20
  21. 21 [153]B$;:[139]B$[178][199](13)[167]23
  22. 22 C$[178]C$[170]B$:[137]20
  23. 23 [139][195](C$)[179]1[167]4
  24. 24 [159]15,D1,15,C$:[160]15:[137]10
  25. 25 [153]"LOAD";:[139]D0[178]D1[167][153]"RIGHT$NSERT (null)(null)(null)CHR$(null)ATN(null) DISK IN DRIVE ";D0
  26. 26 [153]"(null)RESS A KEY."
  27. 27 [161]A$:[139]A$[178]""[167]27
  28. 28 [159]15,D0,15:[159]2,D0,2,"CMND,P,R":[160]2:[161]#15,E:[160]15
  29. 29 [139]E[179][177]0[167][153]"(null)ROGRAM DISK NOT PRESENT.":[137]27
  30. 30 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](34),8,Y,6
  31. 31 A[178][183](34),X,231,7:[147]"CMND",D0
  32. 32 [153]"(null)ROGRAM DISK IS LOGGED TO DRIVE ";D0
  33. 33 [153]"VALNTER NEW DRIVE NUMBER: ";
  34. 34 [161]C$:[139]C$[178]""[167]34
  35. 35 [139](C$[178]"9")[175](D0[178]8)[167]D0[178]9
  36. 36 [139](C$[178]"8")[175](D0[178]9)[167]D0[178]8
  37. 37 [151]36862,D0:[153]D0:[153]"ASCILE DISK IS LOGGED TO DRIVE ";D1
  38. 38 [153]"VALNTER NEW DRIVE NUMBER: ";
  39. 39 [161]C$:[139]C$[178]""[167]39
  40. 40 [139](C$[178]"9")[175](D1[178]8)[167]D1[178]9
  41. 41 [139](C$[178]"8")[175](D1[178]9)[167]D1[178]8
  42. 42 [151]36863,D1:[153]D1:[137]4
  43. 43 [153]"(null)PEED 0 IS PRESENTLY ";SS
  44. 44 [133]"(null)EW VALUE:";A$
  45. 45 [139][197](A$)[179]1[167]4
  46. 46 SS[178][197](A$):[137]4
  47.